Apple WWDC 1996/WWDC96_1996 (CD).toast/Technology Materials/AMT/Sample AMT⁄PE Code/SOURCES/oMMENU_2.k

Text File | 1996-03-04 | 4.9 KB | 279 lines | [TEXT/MPS ]

object oMMENU_2 is cDefaultContainer
has
    CurMenu;
    MenuPops;
    MenuSpots;
with
    CurMenu is void;
    MenuPops is [
        oPOPPROD_2_25,
        oPOPSUCC_2_35,
        oPOPREF_2_19,
        oPOPTUTR_2_22,
        oPOPSAMPL_PIC_2_21
    ];

    MenuSpots is [
        oMENU1_3_9,
        oMENU2_3_11,
        oMENU3_3_12,
        oMENU4_3_13,
        oMENU5_3_18,
        oMENU6_3_19,
        oMENU7_3_40,
        oMENU8_3_41,
        oMENU9_3_42,
        oMENU10_3_43,
        oMENU11_3_44,
        oMENU12_3_45,
        oMENU13_3_45
    ];

    Binder is oBinder;
    Label is -1;
    Items is [
        oMMENU_PIC_2_8,
        oPOPPROD_2_25,
        oPOPSUCC_2_35,
        oPOPREF_2_19,
        oPOPTUTR_2_22,
        oPOPSAMPL_PIC_2_21,

        oMENU1_3_9,
        oMENU2_3_11,
        oMENU3_3_12,
        oMENU4_3_13,
        oMENU5_3_18,
        oMENU6_3_19,
        oMENU7_3_40,
        oMENU8_3_41,
        oMENU9_3_42,
        oMENU10_3_43,
        oMENU11_3_44,
        oMENU12_3_45,
        oMENU13_3_45,

        oBTNQUIT_PIC_2_29,
        oPOPUP_PIC_3_29,
        oBTNABRT_PIC_3_31,
        oBTNCONT_PIC_3_32
    ];
end;


object oMMENU_PIC_2_8 is cPictureHandler
with
    Duration is -1;
    Supplier is oMMENU_PIC_10_;
    Behavior is cDefaultBehavior
    has
    with
        Enabled is false; Shown is true;
        X is 0; Y is 0; Width is 640; Height is 480;
    end;
end;


object oPOPPROD_2_25 is cPictureHandler
with
    Duration is -1;
    Supplier is oPOPPROD_PIC_30_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                oMMENU_2.CurMenu := oPRODINFO_MENU;
                theTarget.container.MenuSpots.EachUp(SetEnable);
                theTarget.container.MenuPops.EachUp(Show, false);
                theTarget.Show(true);
            end;


        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oPRODINFO_3);
            end;

    with
        Enabled is true; Shown is false;
        X is 59; Y is 126; Width is 447; Height is 86;
        Region is {
            $00030000, $00160002, $000100B8, $00560000, $FFFFFFFF
        };
    end;
end;


object oPOPSUCC_2_35 is cPictureHandler
with
    Duration is -1;
    Supplier is oPOPSUCC_PIC_33_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                oMMENU_2.CurMenu := oSUCC_MENU;
                theTarget.container.MenuSpots.EachUp(SetEnable);
                theTarget.container.MenuPops.EachUp(Show, false);
                theTarget.Show(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oSUCCSTORY_4);
            end;

    with
        Enabled is true; Shown is false;
        X is 59; Y is 126; Width is 447; Height is 247;
        Region is {
            $003E0000, $00560002, $002B00B7, $00F70000, $FFFFFFFF
        };
    end;
end;


object oPOPREF_2_19 is cPictureHandler
with
    Duration is -1;
    Supplier is oPOPREF_PIC_32_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                oMMENU_2.CurMenu := oREF_MENU;
                theTarget.container.MenuSpots.EachUp(SetEnable);
                theTarget.container.MenuPops.EachUp(Show, false);
                theTarget.Show(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oREF_5);
            end;

    with
        Enabled is true; Shown is false;
        X is 59; Y is 249; Width is 446; Height is 146;
        Region is {
            $00010000, $00190002, $004F00B8, $00920000, $FFFFFFFF
        };
    end;
end;


object oPOPTUTR_2_22 is cPictureHandler
with
    Duration is -1;
    Supplier is oPOPTUTR_PIC_31_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                oMMENU_2.CurMenu := oTUT_MENU;
                theTarget.container.MenuSpots.EachUp(SetEnable);
                theTarget.container.MenuPops.EachUp(Show, false);
                theTarget.Show(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oTUT_6);
            end;

    with
        Enabled is true; Shown is false;
        X is 59; Y is 207; Width is 447; Height is 188;
        Region is {
            $00650000, $007E0002, $000400B6, $00BC0000, $FFFFFFFF
        };
    end;
end;


object oPOPSAMPL_PIC_2_21 is cPictureHandler
with
    Duration is -1;
    Supplier is oPOPSAMPL_PIC_34_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Show(false);
            end;

        MouseEnter(theTarget, theX, theY)
            do
                oMMENU_2.CurMenu := oSAMP_MENU;
                theTarget.container.MenuSpots.EachUp(SetEnable);
                theTarget.container.MenuPops.EachUp(Show, false);
                theTarget.Show(true);
            end;

        MouseUp(theTarget, theX, theY)
            do
                oBinder.Goto(oSAMPMEDIA_7);
            end;

    with
        Enabled is true; Shown is false;
        X is 59; Y is 329; Width is 447; Height is 66;
        Region is {
            $00270000, $003E0002, $003500B6, $00420000, $FFFFFFFF
        };
    end;
end;


object oBTNQUIT_PIC_2_29 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNQUIT_PIC_27_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 456; Width is 66; Height is 24;
    end;
end;